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EDTSWFREABCK = read previous Line 1b-bep-1944 9: \Q: 18 VAX 


SWFREABCK ( ! Read serious line 
IDENT = *V04=000" Prevites WEREABCK.BLI Edit: TSS1005 


8 A a sep T SME RE AOCK - read previous Line’ 
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'@ 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL eee MAYNARD, MASSACHUSETTS. 


ED het A_LICENSE AND MAY BE USED AND soeree 
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COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
| PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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rf ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTI 


cE 
HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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oe 
FACILITY: EDT == The DEC Standard Editor 


' 
i 
i 
ABSTRACT: 
Read the previous Line from the work file system. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
MODIFIED BY: 

i 

i 

i 

i 

i 
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1-001 = Original. DJS ah a -1981. This module was created by 
eatrecs ing routine EDT$$RD _PRVLN from module EDTWF. 
1- § - regularize ye et JBS~ 19-Mar-19 ! 
Change index for Line numbers fron. to 15. SMB 18-Jan-1982 
Remove EDISSSET. -WKLN. JBS 14S sep) oe 
Modify to use néw 48 bit macro. STS 01-Oct-1982 
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In the routine 


EDTSSRD_PRVLN; 


TABLE OF CONTENTS: 


INCLUDE FILES: 


REQUIRE "EDTSRC: TRAROUNAM ; 


SBTTL ‘Declarations’ 
FORWARD ROUTINE 
EQUIRE ‘EDTSRC:EDTREQ' 
NONE 
EQUATED SYMBOLS: 
NONE 
STORAGE 
NONE 
EXTERNAL REFERENCES 
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odd pede pon - read previous Line 
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DISWFREABCK = read previous ite 18-5 Sep-1 :10: VAX-11 Bliss-32 V4.0-74 © 3 
EDTSERD PRVLN = read previous Line ~300=} 382 95:39:48 ST EKDUMGMASTER-CEOT Sac SUFREABCK.BLIG; (3) 
ZSBTTL "EDTSSRD_PRVLN = read previous Line’ | 
GLOBAL ROUTINE EDTSSRD_PRVLN ! Read previous Line | 


i FUNCTIONAL DESCRIPTION: 
Read a Line backwards. The Line preceding the current Line becomes the 
yy Voom Line. If we are already at the top, return a 0 otherwise return 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
tithe Or Buk 
epretectnod ne 


IMPLICIT OUTPUTS: 


EDTSSA_CUR_BUF CTBCB_CHAR_POS) = 0; 
i "pee if we are at the beginning of a bucket. 
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iy poTesA.. CUR_ BUF 

118 EDTSSA_Wk_CN 

‘48 i ROUTINE VALUE: 

118 1 = previous Line read successfully 

4 0 = there is no previous Line 

#4 i SIDE EFFECTS: 

: 1 NONE 

1 $ ee he 

: 5 BEGIN 

1 $ 38 Ponte ROUTINE 

128 TSSWF_MAKECUR : NOVALUE; 

! 9 .] 

131 1 TEE OTSsA. CUR_BUF : REF TBCB_BLOCK, Current text buffer control block 
1 ; § EDTSSA_Wk BUK Pointer te, current bucket 
1 REF BLOCK tur -BUKT_SIZE, BYTE) FIELD. (Ure FIELD 

1 ait tee K ! NumBer of the current bucket 
135 5 EDT$$L~LNOO : LNOVECTOR (14), 

: EDTSSA_WK_LN : REF LIN_ BLOCK: ! Pointer to work Line 
1 
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1 


SSN 


——e 
mC O0O@ 


SS — , 


EDTSwWFREABCK DISWFREABCK = read previous Lin 6-se -1984 VAX-11 s-32 V 4 
the th EDTSSRD P PRVLN = reek prev ous Line 1b-bep-1984 96: 3: i DISK K$V nea TER: ath Och SurREACK. BLI; page (3) | 
; 143 713 IF (.EDTSSA_CUR_BUF CTBCB_LINE_ADDR] EQL wFB_FIXED_SIZE) 

: ies a — 

: 146 4 F_C.EDTSSA_WK_BUK CUFB_PREV.BUKT] EQL 0) 

; 138 71 RETURN (0) ! cannot read backward at beginning of buffer. | 
; 16 71 ELSE 

2 4 7 BEGIN 
52% 721 t+ 
3 } 4 § - Read the previous bucket and position to ic's end. 

: 154 724 EDTSSWF_MAKECUR (.EDTSS$A_WK BUK CWFB_PREV_BUKT)); 

; 155 725 EDTSS$A_CUR_BUF TBCB _LINE_ABDR] = .EDTS$A“WK BUK cwre. END]; 

; } § , $ EDISSA_ CuR~BUF CTBCB-CUR_BUKT) = ebTS8G. Qk _CURBUK 

1 BB, 

3 4 f ? ‘| Now, move back a Line. 

: 16¢ 7 ; " EDTSSA_CUR_BUF CTBCB_LINE_ADDR] = .£D1$$A_CUR_BUF TCL LINE_ADDR] - ' 

; 16 7 CH WSRCHAR (THSP TR (.EDTS$A~WK_BUK, .EDTS$SA_CUR-BUF CTBCB“LINE-ADDR] - 1)) - | 

; 164 734 LIN IXED SIZE 

; 165 , 5 : UBCINE ( CRUMGER “ali. EDTS$SA_CUR_BUF CTBCB_CUR_LINJ); 

; 169 g Get the address of the current Line. 

; 169 7 5  EDTSSA_WK_LN = CHSPTR (.EDTSSA_WK_BUK, .EDTSSA_CUR_BUF CTBCB_LINE_ADDR]); 

> 170 740 RETURN” (13; 

: 171 741 END; ! of routine EDT$$RD_PRVLN 


TITL cergunes cece EDTSWFREABCK - read previous Line 
IDENT \Vv04-0 
EXTRN EDTSSUF MAKECUR 
EXTRN EDTSSA_CUR BUF. _EOTS$A_ WK _BUK 
EXTRN EDISSC7 wk ine 
EXTRN EDTSS$L_LNO EDISSA.. WK_LN 
-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
001¢ 00000 .ENTRY EDTSSRD_PRVLN, Save R2.R3,R4 : 0658 
4 000000006 00 9E 0000 MOVAB EDTS$$A_CUR BUF, R4 ; 
3 000000006 00 43 8 MOVAB EDTSS$A_WK_BUK 3 
64 D 1 MOVL EDTSSA-CUR_BUF , RO : 0708 
0c AO B4 0001 CLRW (RO) : 
08 D1 18 CMPL (RO), #8 + 0713 
2 1 1 BNEQ 1$ ; 
50 D 18 MOVL EDTS$$A_WK_BUK, RO : 0716 
ah) an a 7 
43 6b c MOVZWL (RO), -(SP) > 0724 
000000006 wm, CALLS #1 corse’ MAKECUR : 
64 D C MOVL  EDfS$A_CUR BUF, > 0725 
i es a : 
04 Al 000000006 00 8B MOV ENTS$6_ ok CURBUK, 4(R1) 0726 | 


ERT oer RE ABCE po tey FREABCK = read previous (te 


SRD_PRVLN = read previous Line 
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; Routine Size: 115 bytes, Routine Base: _EDTSCODE 


; 76 ore 1 
17 0745 1 !<BLF/PAGE> 


SRCSWFREABCK.BLI3™” (33 
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EDTSWFREABCK EDTSWFREABCK = read previous Lin 1b-5e =| VAX-11 Bliss-32 V4.0- 
b, 000 EDTSSRD_PRVLN = reed previous Line att 95: 32: i DISKSVMSMAS TER: a EDt SRCSWFREABCK.BLIL r 4 
; 175 re 1 END ! of module EDTSWFREABCK 

; i 45 1 

oe 746 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: EDTSCODE 115 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

3 tele ¢ ine +4 lee Pages Processing 

3 File Total Loaded Percent Mapped ime 

: $255$DUA 8: fEDT. SRCIEDT 132; 377 42 11 40 00:00.2 

: ~$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

3 COMMAND QUALIFIERS 

: BL ISS/CHECK OCF LELD. INITIAL OPTIMIZE) /MOTRACEBACK/L I Sel 158 sUF REABCK/OBJ=08.)S : UF REABCK MSRC$:WFREABCK.BLI/UPDATE=(ENHS$: WF RE 
3 Sizer 115 code + 0 data bytes 

3; Run Time 712.5 

3 Flapsed. Time: 518. 9 

3; Lines/CPU Min: 1328 

3 posence (a as 12880 

3 Used: 85 pages 


cee Beg Complete 
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